10 PRINT CHR$(147);
20 REM GET A$:IF A$="" THEN 20
30 FOR T=40000 TO 40011:READ A:POKE T,A
40 NEXT
50 SYS 40000
55 REM *** DATA ***
60 DATA 32,228,255,200,140,33
70 DATA 208,201,32,208,245,96